home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zh.d64 / src.test < prev    next >
Text File  |  2007-03-01  |  1KB  |  61 lines
  1. ;
  2. ;--------------------------------;
  3. ; SRC.TEST - A COMAL PACKAGE TO  ;
  4. ;            DEMONSTRATE HOW TO  ;
  5. ;            RAM ALL ROM'ED      ;
  6. ;            PACKAGES USING THE  ;
  7. ;            PROCEDURE RAMALL    ;
  8. ;                                ;
  9. ; BY DICK KLINGENS FROM          ;
  10. ; DUTCH COMAL USERS GROUP        ;
  11. ;                                ;
  12. ; 28-08-86                       ;
  13. ;--------------------------------;
  14. ;
  15.  DEFPAG =%01000110
  16.  ROMMED =%00010000
  17.  DUMMY  =$CA2F
  18.  CWRT   =$CA06
  19.  INDEX  =$0055
  20.        LINK   =2
  21. ;
  22. *=$8009
  23. ;
  24.  .BYTE DEFPAG+ROMMED
  25.  .WORD END
  26.  .WORD SIGNAL
  27. ;
  28. ;- PACKAGE TABLE -
  29. ;
  30.  .BYTE 4,'TEST'
  31.  .WORD NONAM
  32.  .WORD DUMMY
  33. NONAM .BYTE 0
  34. ;
  35. SIGNAL ;               ;PROC
  36.        CPY #LINK       ; IF LINKED
  37.  BNE LINKED ; GOTO
  38.        LDA #<TEXT
  39.  LDX #>TEXT
  40.        JSR PRTEXT      ; EXEC
  41. LINKED RTS             ;ENDPROC
  42. ;
  43. ;
  44. PRTEXT STA INDEX       ;PROC
  45.  STX INDEX+1
  46.  LDY #0
  47. REPT   LDA (INDEX),Y   ; READ CHR
  48.        BEQ EOT         ; LAST CHR?
  49.        JSR CWRT        ; PRINT CHR
  50.        INY             ; Y:+1
  51.        BNE REPT        ; GOTO REPT
  52. EOT    RTS             ;ENDPROC
  53. ;
  54. TEXT .BYTE 8,14 ;DIS,LOWER
  55.        .BYTE 'ROM''ED PACKAGE IS '
  56.        .BYTE 'LINKED NOW!'
  57.  .BYTE 13
  58.        .BYTE 0         ;LAST CHR
  59. ;
  60. END .END
  61.